EnvStr function

  DECLARATION:  EnvStr

      PURPOSE:  Returns a specified environment string

         UNIT:  DOS

  RESULT TYPE:  String

      REMARKS:  Each EnvStr is of the form 'VAR=VALUE'.  The index
                of the first string is one.  If Index is less than one, or
                greater than EnvCount, EnvStr returns an empty string.

      EXAMPLE:  Uses
                   DOS;

                Var
                   i : Integer;

                Begin
                   For i := 1 to EnvCount Do
                      WriteLn(EnvStr(i));
                End.